{	Problem: http://codeforces.ru/problemset/problem/44/A
	Verdict: Accepted
}
var 
    i,j,cc,n:longint;
    t:array[0..110] of string;
    s:string;
    f:boolean;

begin
readln(n);
cc:=0;
for i:=1 to n do begin
    readln(s);
    f:=false;
    for j:=1 to cc do
        if t[j]=s then begin
            f:=true;
            break;
        end;
    if not f then begin
        inc(cc);
        t[cc]:=s;
    end;
end;
write(cc);
end.